open INF, "doc4.txt";
my @tmp = <INF>;
my $tmp = $tmp[0];
close INF;

$globallink = "http://pyopengl.sourceforge.net/documentation/manual/";

my @tmp2 = split(/\<dt\>/, $tmp);
open OUF, "> Out-GLE.txt";
for (@tmp2) {
	my $n1 = ((split(/\"/,$_))[1]);
	my $n2 = ((split(/\>/,$_))[1]);
	$n2 = substr($n2, 0, index ($n2, "<"));
	#print "[".$globallink.((split(/\"/,$_))[1]);
	#print " "."\n";
	
	print "\n".$n1;
	print "\n".$n2."\n";
	print OUF "  * [".$globallink.$n1." ".$n2."]\n";
}
close OUF;